home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / earkit / news / thor / hd-install / thor.lha / bin / ValidateThor < prev    next >
AmigaDOS Script File  |  1997-04-27  |  2KB  |  90 lines
  1. .key SYSTEM
  2. .bra {
  3. .ket }
  4.  
  5. ; $VER: ValidateThor 1.2 (24.4.97)
  6. ; by Eirik Nicolai Synnes <eirikns@sn.no>
  7.  
  8.  
  9. Echo "ValidateThor 1.2 (24.4.97) by Eirik Synnes <eirikns@sn.no>*N"
  10. Echo "IMPORTANT:"
  11. Echo "o Only run ValidateThor after a reboot."
  12. Echo "o For the best stability leave the system alone while validating."
  13. Echo "o Be aware that validating the databases can take a long time."
  14. Echo "o ValidateThor will perform a pack/purge after deleting corrupt messages."
  15. Echo "o Use Sushi to avoid error requesters. Sushi can be found on AmiNet.*N"
  16.  
  17.  
  18. ; Check command line arguments
  19.  
  20. If "{SYSTEM}" EQ ""
  21.     Echo "Specify a system to validate.*N"
  22.     Echo "Usage: ValidateThor *"<system name>*""
  23.     Echo "       Use ALL as <system name> to validate all systems.*N"
  24.     Skip End2
  25. EndIf
  26.  
  27. Echo "Do you want to continue? [y/N]" NOLINE
  28. Ask ""
  29.  
  30. If NOT WARN
  31.     Skip End2
  32. EndIf
  33.  
  34.  
  35. ; See if ValidateThor is already running, exit if true
  36.  
  37. GetEnv >NIL: VT_Running
  38.  
  39. If NOT WARN
  40.     Echo "ValidateThor is already running."
  41.     Skip End2
  42. EndIf
  43.  
  44.  
  45. ; Find the Thor dircetory
  46.  
  47. CD `getenv Thor/ThorPath`
  48.  
  49.  
  50. ; Get rid of bbsread.library
  51.  
  52. bin/LoadBBSRead QUIT
  53. Avail >NIL: FLUSH
  54.  
  55.  
  56. ; Set the validate flag for the system
  57.  
  58. bin/BaseManager VALIDATE "{SYSTEM}"
  59.  
  60. If ERROR
  61.     Echo "Failed to set validate flag on *"{SYSTEM}*"."
  62.     Skip End
  63. Else
  64.     FailAt 21
  65.  
  66.     SetEnv VT_Running TRUE
  67.  
  68.     ; Delete corrupt messages and users
  69.     rx rexx/BBSRead/CheckDataBase.br "{SYSTEM}" DELETE
  70.     rx rexx/BBSRead/CheckUserDataBase.br "{SYSTEM}" DELETE
  71.  
  72.     ; Make sure all data files will be packed
  73.     rx rexx/BBSRead/CfgGlobal.br SET 00000040
  74.  
  75.     ; Pack the database
  76.     If "{SYSTEM}" EQ "ALL"
  77.         bin/PackBBS ALL
  78.     Else
  79.         bin/PackBBS "{SYSTEM}"
  80.     EndIf
  81. EndIf
  82.  
  83. rx rexx/BBSRead/CfgGlobal.br CLEAR 00000040
  84.  
  85. Lab End
  86.  
  87. Lab End2
  88.  
  89. UnSetEnv VT_Running
  90.